﻿Public Class StatusDisplay
    Private m_StatusInfo As StatusInfo
    Private m_PID As Integer

    Public Property StatusInfo() As StatusInfo
        Get
            Return m_StatusInfo
        End Get
        Set(ByVal value As StatusInfo)
            m_StatusInfo = value
        End Set
    End Property

    Public Property PID() As Integer
        Get
            Return m_PID
        End Get
        Set(ByVal value As Integer)
            m_PID = value
        End Set
    End Property

    Private Sub StatusDisplay_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblNumErrors.Text = "Num Errors: " & StatusInfo.NumErrors
        lblHealth.Text = "Last Healthy: " & StatusInfo.LastHealthy
        txtLastError.Text = "Last Error: " & StatusInfo.LastError
        lblServicePID.Text = "Service PID: " & PID.ToString
    End Sub
End Class